home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr49 / sider.zip / SCRN_HLP.LIB < prev    next >
Text File  |  1993-06-16  |  2KB  |  45 lines
  1. {*************************************************************************}
  2. procedure vertln (col,row,occ,fig : integer);       {draw a vertical line }
  3. var i : integer;                                    {starting at col,row  }
  4. begin                                               {of length = occ and  }
  5. for i := row to (row + occ) do                      {with ascii character }
  6.   begin                                             {no. defined by fig   }
  7.     gotoxy(col,i);write(chr(fig));
  8.   end;
  9. end;
  10. {*************************************************************************}
  11. procedure horzln (col,row,occ,fig : integer);      {draw a horizontal line}
  12. var i : integer;                                   { - parameters same as }
  13. begin                                              {above                 }
  14. for i := col to (col + occ) do
  15.   begin
  16.     gotoxy(i,row);write(chr(fig));
  17.   end;
  18. end;
  19. {*************************************************************************}
  20. procedure txt (num : integer);      {change text color where the following}
  21. begin                               {results on a MONO display:           }
  22.   textcolor(num);                   {     No.              Text           }
  23. end;                                {   ------   ------------------------ }
  24.                                     {      1     dim underline text       }
  25.                                     {      3     dim text                 }
  26.                                     {      9     normal underlined        }
  27.                                     {     15     normal text              }
  28.                                     {     17     dim blink underlined     }
  29.                                     {     19     dim blinking text        }
  30.                                     {     25     normal blink underlined  }
  31.                                     {     27     normal blinking text     }
  32. {*************************************************************************}
  33. procedure clr_area(ulc,ulr,lrc,lrr,lines,color: byte);
  34. begin                               {create window and scroll lines out   }
  35.   r.ch := ulr-1;                    {of view to clear the defined area in }
  36.   r.cl := ulc-1;                    {color of choice where 7=normal       }
  37.   r.dh := lrr-1;
  38.   r.dl := lrc-1;
  39.   r.ah := $06;
  40.   r.al := lines;
  41.   r.bh := color;
  42.   intr($10,r);
  43. end;
  44. {*************************************************************************}
  45.